;Calvin Nelms
;Due:03.29.12
;Instructor: Dr Page
;tests

;30 - 50 tests
(include-book "testing" :dir :teachpacks)
(include-book "avl-prp")
(include-book "avlModule")

;check-valid-y-tst
;(check-expect (check-valid-y 1 2) '(make-posn 1 10))

;create-y
(check-expect (create-y 110 '(111 112 113)) '((110 . 111) (110 . 112) (110 . 113)))
(check-expect (create-y 0 '()) nil)

;create=x
(check-expect (create-x '(110 111 112) '(113 114 115)) '(((110 . 113) (110 . 114) (110 . 115)) ((111 . 113) (111 . 114) (111 . 115)) ((112 . 113) (112 . 114) (112 . 115))))
(check-expect (create-x 0 '()) nil)

;avl-retrieve
(check-expect (avl-retrieve '(2 (1 30) (test value) nil (1 (2 15) (test1 value1) nil nil)) '(1 30)) '((1 30) test value))
(check-expect (avl-retrieve '(2 (2 30) (test value) nil (1 (2 15) (test1 value1) nil nil)) '(0 30)) nil)

;find-best-combination
(check-expect (find-best-combination '(112 113 114)) '(nil nil nil))

;;;;;;;Will have to change due to different score
;create-all-possible-combinations
(check-expect (create-all-possible-combinations '(110 111 112) '(113 114 115)) '((((110 . 113) . 5) ((110 . 114) . 5) ((110 . 115) . 5)) (((111 . 113) . 5) ((111 . 114) . 5) ((111 . 115) . 5)) (((112 . 113) . 5) ((112 . 114) . 5) ((112 . 115) . 5))))
(check-expect (create-all-possible-combinations nil nil) nil)

;compare-scores-between-team-sets
(check-expect (compare-scores-between-team-sets '(1 30) '(2 40) '(2
 (1 30)
 (2 111 (dave '(list of specialties 2)) (1 110 (calvin '(list of specialties 1)) nil nil) (1 112 (ed '(list of specialties)) nil nil))
 nil
 (1 (2 40) (2 111 (dave '(list of specialties 2)) (1 110 (calvin '(list of specialties 1)) nil nil) (1 112 (ed '(list of specialties)) nil nil)) nil nil))) '(2 40))
(check-expect

;(2 111 (dave '(list of specialties 2)) (1 110 (calvin '(list of specialties 1)) nil nil) (1 112 (ed '(list of specialties)) nil nil))



